home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / startarbeit.clssa < prev    next >
Text File  |  1995-03-28  |  6KB  |  181 lines
  1. /***********************************************************************
  2.   $DAT >>StartArbeit.clssa<<  29.03.1995 - (C) ProDAD Michael Christoph
  3.        Spezialversion für clariSSA V1.1
  4. ************************************************************************/
  5.  
  6. /* feste Voreinstellungen, die bei jedem clariSSA-Start durchgeführt werden sollen */
  7.  
  8.  
  9. Options RESULTS
  10. Address clariSSA
  11.  
  12.   FailAt 99
  13.   AltFail=RESULT
  14.  
  15.  
  16. /****** Grundeinstellungen ******/
  17.   Einstellung.1 ="EBBACK      ON "     /*   E-Bilder im Hintergrund */
  18.   Einstellung.2 ="SECURITY    ON "     /* X Sicherheitsstatus ein */
  19.   Einstellung.3 ="SLDE        ON "     /*   Schnellader */
  20.   Einstellung.4 ="USEPLAYPOS  OFF"     /* X Framepos nur mit Schieber */
  21.   Einstellung.5 ="SCREENS     ON "     /* X Screensortierung ein */
  22.   Einstellung.6 ="INTERACTION ON "     /*   hohe Interactivität */
  23.   Einstellung.7 ="SnapWindow  ON "     /* X automatisches Verschieben beim Öffnen */
  24.   Einstellung.8 ="WORKSCREEN  ON "     /* X Workbench eingeschaltet */
  25.   Einstellung.9 ="COLREQOS    ON "     /* X eigener Screen vor ColorRequester */
  26.   Einstellung.10="COMPRESS    3  "     /*   Kompression: A s= [ 4,5,6 nicht setzten -> macht Probleme !! ] */
  27.   Einstellung.11="DDOFLUSH    3  "     /*   DDO-Löschvolumen: 200 kB */
  28.   Einstellung.12="LOCKAREA    ON "     /*   Bereich befestigen */
  29.   Einstellung.13="USE24BB     ON "     /*   24Bit-Hintergrund */
  30.   Einstellung.14="TWOMONSYS   OFF"     /* X 2-Monitorsystem */
  31.   Einstellung.15="DODMO       OFF"     /*   DMO-Save */
  32.   Einstellung.16="SFAF        ON "     /*   SFAF */
  33.   Einstellung.17="FrameCompensation OFF"     /*   Framekompensation */
  34.   Einstellung.18="LaceCompensation  ON "     /*   Lacekompensation */
  35.   Einstellung.19="LIMMESS     OFF"     /*   Eingeschränkte Eingabe */
  36.   Einstellung.20="HBComp      OFF"     /*   HB-Kompensation */
  37.   Einstellung=20
  38.  
  39. /* DDOFLUSH = DDO-Löschvolumen setzen abhängig vom aktuell freien Speicherplatz */
  40.  
  41.  
  42.  
  43. /****** Pfade einlesen ******/
  44.   IF Exists("clvars/grundeinstellungen") THEN DO
  45.  
  46.     i=1; Einstellungen=""
  47.     IF Open(ff,"clvars/grundeinstellungen","read") THEN DO
  48.       LadeStatus="OPEN"
  49.       z=ReadLn(ff)
  50.  
  51.       IF z="; clariSSA-Grundeinstellungen" THEN DO
  52.         DO UNTIL i>Einstellung
  53.           z=ReadLn(ff)
  54.           IF z~="" THEN DO
  55.             Parse VAR z '"'einopt einstat'"'
  56.             IF Find(einopt,"COMPRESS") & einstat>3 THEN
  57.               einstat="3"    /* größer 3 macht Probleme beim Startsetzen */
  58.               Einstellungen=Einstellungen einopt||einstat
  59.           END
  60.           i=i+1
  61.         END
  62.         LadeStatus="JA"
  63.         SetPref Einstellungen
  64.       END
  65.       call Close(ff)
  66.     END
  67.     ELSE Message "'Einstellungen können nicht aus Datei''<clvars/grundeinstellungen>''gelesen werden.'"
  68.  
  69.     IF LadeStatus="OPEN" THEN DO
  70.       BOOLRequest "'Es ist keine gültige''Grundeinstellerdatei vorhanden.''<clvars/grundeinstellungen>''''Soll eine neue erzeugt werden?'"
  71.       IF RC=0 & RESULT="YES" THEN DO
  72.         i=1
  73.         IF Open(ff,"clvars/grundeinstellungen","write") THEN DO
  74.           call WriteLn(ff,"; clariSSA-Grundeinstellungen")  /* Dateikennung */
  75.           DO UNTIL i>Einstellung
  76.             call WriteLn(ff,'"'Einstellung.i'"')
  77.             i=i+1
  78.           END
  79.           datumzeit=Date()", "Time()
  80.           datumzeit=Overlay(".",datumzeit,3,1)
  81.           datumzeit=Overlay(".",datumzeit,7,1)
  82.           call WriteLn(ff,"; letzte Änderung:  "datumzeit)
  83.           call Close(ff)
  84.         END
  85.         ELSE Message "'Einstellungen können nicht in Datei''<clvars/grundeinstellungen>''geschrieben werden.'"
  86.       END
  87.     END
  88.  
  89.   END  /* IF EXISTST("clvars/grundeinstellungen") */
  90.  
  91.  
  92.   IF LadeStatus~="JA" THEN DO
  93.     /* keine Voreinstellungen vorhanden, feste Werte setzen */
  94.  
  95.     i=1; Einstellungen=""
  96.     DO UNTIL i>Einstellung
  97.       Einstellungen=Einstellungen Einstellung.i
  98.       i=i+1
  99.     END
  100.     SetPref Einstellungen
  101.   END
  102.  
  103.  
  104. /****** Abspielarten ******/
  105.   Einstellung.1 ="FOREVER      OFF"  /* X Endloswiedergabe */
  106.   Einstellung.2 ="MOUSESTART   OFF"  /* X Animstart erst nach Mausklick */
  107.   Einstellung.3 ="SLOWPLAY     OFF"  /*   immer aus !!! */
  108.   Einstellung.4 ="DFPMode      ON "  /*   volle Synchronisation */
  109.   Einstellung.5 ="FFStop       ON "  /* X während Pause Vollbild anzeigen */
  110.   Einstellung.6 ="BlackScreen  OFF"  /* X schwarzer Bildschirm vor abspielen */
  111.   Einstellung.7 ="Background   ON "  /* X virtuellen Hintergrund verwenden */
  112.   Einstellung.8 ="HarmLoop     ON "  /*   */
  113.   Einstellung.9 ="ViewFreezer  ON "  /*   */
  114.   Einstellung.10="IFL          OFF"  /* X invers frame list */
  115.   Einstellung=10
  116.  
  117.  
  118.  
  119. /****** Pfade einlesen ******/
  120.   IF Exists("clvars/playeinstellungen") THEN DO
  121.  
  122.     i=1; Einstellungen=""
  123.     IF Open(ff,"clvars/playeinstellungen","read") THEN DO
  124.       LadeStatus="OPEN"
  125.       z=ReadLn(ff)
  126.  
  127.       IF z="; clariSSA-Playeinstellungen" THEN DO
  128.         DO UNTIL i>Einstellung
  129.           z=ReadLn(ff)
  130.           IF z~="" THEN DO
  131.             Parse VAR z '"'einopt einstat'"'
  132.             Einstellungen=Einstellungen einopt||einstat
  133.           END
  134.           i=i+1
  135.         END
  136.         LadeStatus="JA"
  137.         SetPlayMode Einstellungen
  138.       END
  139.       call Close(ff)
  140.     END
  141.     ELSE Message "'Einstellungen können nicht aus Datei''<clvars/playeinstellungen>''gelesen werden.'"
  142.  
  143.     IF LadeStatus="OPEN" THEN DO
  144.       BOOLRequest "'Es ist keine gültige''Playeinstellerdatei vorhanden.''<clvars/Playeinstellungen>''''Soll eine neue erzeugt werden?'"
  145.       IF RC=0 & RESULT="YES" THEN DO
  146.         i=1
  147.         IF Open(ff,"clvars/playeinstellungen","write") THEN DO
  148.           call WriteLn(ff,"; clariSSA-Playeinstellungen")  /* Dateikennung */
  149.           DO UNTIL i>Einstellung
  150.             call WriteLn(ff,'"'Einstellung.i'"')
  151.             i=i+1
  152.           END
  153.           datumzeit=Date()", "Time()
  154.           datumzeit=Overlay(".",datumzeit,3,1)
  155.           datumzeit=Overlay(".",datumzeit,7,1)
  156.           call WriteLn(ff,"; letzte Änderung:  "datumzeit)
  157.           call Close(ff)
  158.         END
  159.         ELSE Message "'Einstellungen können nicht in Datei''<clvars/playeinstellungen>''geschrieben werden.'"
  160.       END
  161.     END
  162.  
  163.   END  /* IF EXISTST("clvars/playeinstellungen") */
  164.  
  165.  
  166.   IF LadeStatus~="JA" THEN DO
  167.     /* keine Voreinstellungen vorhanden, feste Werte setzen */
  168.  
  169.     i=1; Einstellungen=""
  170.     DO UNTIL i>Einstellung
  171.       Einstellungen=Einstellungen Einstellung.i
  172.       i=i+1
  173.     END
  174.     SetPlayMode Einstellungen
  175.   END
  176.  
  177.  
  178.  
  179.   FailAt AltFail
  180. exit
  181.